home *** CD-ROM | disk | FTP | other *** search
- # Connix Login.cmd
- #
- #trace on
- #
- # set up some strings for dialling up
- #
- if ![load $number]
- if [query $number "Enter your dial up phone number"]
- save $number
- end
- end
- if ![load $username]
- if [username "Enter your login username"]
- save $username
- end
- end
- if ![load $password]
- if [password "Enter your login password"]
- save $password
- end
- end
- $modemsetup = "&f&c1&k3"
- $prompt = ""
- $userprompt = "ogin:"
- $passprompt = "assword:"
- $slipcmd = "slip"
- $addrtarg = "Your address is"
- $pppcmd = "ppp"
-
- %attempts = 2
- #
- #
- #----------------------------------------------------------
- #
- # initialize modem
- #
- output "atz"\13
- if ! [input 10 OK\n]
- display "Modem is not responding"\n
- abort
- end
- #
- # setup our modem commands
- #
- output "at"$modemsetup\13
- input 10 OK\n
- #
- # send phone number
- #
- %n = 0
- repeat
- if %n = %attempts
- display "Too many dial attempts"\n
- abort
- end
- output "atdt"$number\13
- %ok = [input 60 CONNECT]
- %n = %n + 1
- until %ok
- input 10 \n
- #
- # wait till it's safe to send because some modem's hang up
- # if you transmit during the connection phase
- #
- wait 30 dcd
- #
- # now prod the terminal server
- #
- output \13
- #
- # wait for the username prompt
- #
- input 30 $userprompt
- output $username\13
- #
- # and the password
- #
- input 30 $passprompt
- output $password\13
- # Make sure the login successful
- input 30 Packet mode enabled
- #
- # we are now logged in